home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
education
/
pe038.dms
/
pe038.adf
/
autoexec.Bak
/
autoexec.amosSourceCode
next >
Wrap
AMOS Source Code
|
1991-10-21
|
10KB
|
309 lines
Screen Open 0,320,200,16,Lowres
Set Sprite Buffer 16
Break On
Curs Off : Cls 0 : Flash Off : Hide
MUS_OK=0
Global PAWS,BIG_FNT,WEE_FNT1,WEE_FNT2
PAWS=2
Get Disc Fonts
PASS=0 : BIG_FNT=0 : WEE_FNT1=0 : WEE_FNT2=0
For X=1 To 20
If(Lower$(Mid$(Font$(X),1,14))="helvetica.font") and Val(Mid$(Font$(X),30,4))=18 Then BIG_FNT=X
If(Lower$(Mid$(Font$(X),1,12))="diamond.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT1=X
If(Lower$(Mid$(Font$(X),1,9))="ruby.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT2=X
Next X
SLSCR
SCR_1
SCR_2
LDSCR
MUS_OK=0
LS_ERR:
Curs Off : Locate 2,24 : Print "Cannot load screen [";Errn;"] - press any key "; : Clear Key : Wait Key
Locate 2,24 : Print Space$(29);
Procedure GUIDE
Screen Open 0,640,200,4,Hires
Palette $F,$FF0,$FFF,$F00
PG1:
Paper 0 : Pen 2 : Cls
Print : Centre "HENRIETTA's BOOK of SPELLS DEMO DISC - USER GUIDE"
Print : Centre "=================================================" : Print
Print " The purpose of this disc is to give you a flavour of HENRIETTA's BOOK"
Print " of SPELLS without having to go to the expense of buying the full pack."
Print " The DEMO is a restricted version of the full program, but it has been"
Print " set up to allow you to examine the features which make it such a"
Print " powerful educational tool."
Print
Print " A 12 page colour manual is provided with the full pack which"
Print " explains in detail how to get the best from the program, but for the"
Print " purposes of this DEMO the following should help:"
Print
Print " We recommend you study the Parent/Teacher section. This is where,"
Print " in the full version, you configure the program to suit a child's"
Print " abilities, or examine the results of earlier sessions."
Print
Print " Pressing <Esc> will let you leave any section of the program."
Print
Print " To quit the program go to the Control Screen and press <SHIFT-Q>"
Print
Print " Feel free to browse through the program and the Parent/Teacher section."
Print " Don't be afraid to experiment."
Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
Print "Press <Esc> to quit.";
Clear Key : K=0
Repeat
K$=Inkey$
K=Mouse Click
Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
If K$=Chr$(27) Then Pop Proc
If K=1 Then Goto PG4
PG2:
Paper 0 : Pen 2 : Cls
Print " What the press says about HENRIETTA's BOOK of SPELLS"
Print " ===================================================="
Print : Print
Print " 'The graphics add tremendously to a child's enjoyment without"
Print " slowing the gameplay down. A very good package - highly recommended.'"
Print " Atari ST User September 1991"
Print
Print " 'This program is great fun and has great potential for work in"
Print " any language because of its flexibility ... I thoroughly"
Print " recommend it."
Print " Times Educational Supplement September 1990"
Print
Print " 'A fine set of word games ... Guaranteed to improve the wordskills"
Print " of even the most word-shy child.'"
Print " Sinclair User May 1991"
Print
Print " 'I found it to be a really enjoyable way for young brains to be"
Print " tested.'"
Print " Amiga Computimg October 1991"
Print
Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
Print "Press <Esc> to quit.";
Clear Key : K=0
Repeat
K$=Inkey$
K=Mouse Click
Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
If K$=Chr$(27) Then Pop Proc
If K=1 Then Goto PG1
PG3:
Paper 0 : Pen 2 : Cls
Print " DEMO DISCS - Conditions of Licence"
Print " =================================="
Print " You can make as many copies of your HENRIETTA's BOOK of SPELLS DEMO"
Print " DISC as you wish and give or sell them to others. The following"
Print " conditions shall apply."
Print
Print " We, Scetlander Limited retain proprietary rights in the content of all"
Print " discs/cassettes ('the Software') and its documentation which is"
Print " licensed to you on the following conditions:"
Print
Print " 1 Use of this Software (or a copy thereof) by you or any other party"
Print " confirms acceptance of these Conditions."
Print " 2 You are permitted to make any number of copies of the Software and"
Print " also to store the Software on a hard disc if you have one."
Print " 3 You may use the Software (or any copy thereof) for public library,"
Print " club or commercial purposes."
Print " 4 Alterations to and versions of the Software (or any copy thereof)"
Print " and/or its documentation may not be made without our prior, written "
Print " consent."
Print " 5 You may only lend or dispose of the Software (or any copy thereof)"
Print " with its documentation to another party only if that party agrees"
Print " to be bound by these Conditions."
Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
Print "Press <Esc> to quit.";
Clear Key : K=0
Repeat
K$=Inkey$
K=Mouse Click
Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
If K$=Chr$(27) Then Pop Proc
If K=1 Then Goto PG2
PG4:
Paper 0 : Pen 2 : Cls
Print : Print
Print " All rights reserved. Except as specified above, no part of the"
Print " Software or its documentation may be reproduced, stored on a retrieval"
Print " system or transmitted in any form or by any means, electronic,"
Print " mechanical, photocopying, recording or otherwise without our prior"
Print " written permission."
Print
Print " If you are in any doubt whatsoever regarding these Conditions, please"
Print " contact us for advice since a breach could result in a criminal as"
Print " well as a civil offence being committed."
Print
Centre "Published by:"
Print : Centre "Scetlander Limited"
Print : Centre "74 Victoria Crescent Road, Glasgow G12 9JN, UK"
Print : Centre "Tel: +44 (0)41-357 1659 Fax: +44 (0)41-357 5034"
Print : Centre "A subsidiary of Scotlander plc"
Print : Print : Print : Print : Print : Print
Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
Print "Press <Esc> to quit.";
Clear Key : K=0
Repeat
K$=Inkey$
K=Mouse Click
Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
If K$=Chr$(27) Then Pop Proc
If K=1 Then Goto PG3
Goto PG1
End Proc
Procedure SCR_1
Get Disc Fonts
Screen Open 0,320,200,16,Lowres
Palette 0,$0,$FFF,$AAA,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
Paper 7 : Cls 7
Set Font BIG_FNT
Set Text BOLD
Ink 2,7
Box 0,0 To 319,199
Bar 0,32 To 319,36
Bar 0,38 To 319,42
Ink 2
Text 80,25,"DEMO DISC"
Set Font WEE_FNT1
TMP$="Welcome to this DEMO DISC of"
Text 10,55,TMP$
Ink 4
Text 9,68,"HENRIETTA's BOOK of SPELLS"
Ink 2
Text 233,68,"and to"
Text 9,81,"the world of computer assisted"
Text 9,94,"learning. For details on how to get"
Text 8,107,"the best from this demo read the"
Text 9,120,"Guide on this disc."
Ink 5
Text 40,160,"Press <Space> to continue, or"
Text 40,173,"press <F1> to read the Guide."
Ink 2
Text 20,190,"Press <Shift-Q> to leave the demo."
Clear Key
ME=0
Repeat
BB$=Inkey$
S=Scancode
If S>0 and S<>80 Then ME=2
If S=80 Then ME=1
If BB$="Q" Then ME=3
If BB$=" " Then ME=4
Until ME=1 or ME=3 or ME=4
If ME=3 Then End
If ME=1 Then GUIDE
End Proc
Procedure SCR_2
Screen Open 0,320,200,16,Lowres
Palette $0,$0,$FFF,$0,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
Paper 7 : Cls 7
Set Font BIG_FNT
Set Text BOLD
Ink 2,7
Box 0,0 To 319,199
Ink 4
Text 10,25,"HENRIETTA's BOOK of SPELLS"
Ink 5
Set Font WEE_FNT2
Text 9,45,"is published by . . ."
Set Font BIG_FNT
Ink 2
Text 9,75,"Scetlander Ltd"
Text 9,100,"74 Victoria Crescent Road"
Text 9,125,"Glasgow G12 9JN"
Text 9,150,"Tel: 041-357 1659"
Text 9,175,"Fax: 041-357 5034"
Ink 5
Set Font WEE_FNT2
Text 40,192,"Press <Space> to continue"
Clear Key : Wait Key
End Proc
Procedure SLSCR
Flash Off : Cls 0
Load Iff "data/slscr.iff"
X=0
Repeat
Wait 2
X$=Inkey$
X=X+1
Until(X>100) or(X$<>"")
End Proc
Procedure LDSCR
Flash Off : Cls 0
Load Iff "data/ldwitch.iff"
Curs Off
Bob 1,42,48,4
For A=0 To 2
For I=1 To 5
Volume 3,63
Play 3,40,1
Bob 1,42,48,4+(I/3)
Volume 3,0
If Inkey$<>"" Then Goto ESCAPE
Wait 3
Next I
Wait 10
For I=1 To 5
Volume 3,63
Play 3,40,1
Bob 1,42,48,4+(I/3)
Volume 3,0
If Inkey$<>"" Then Goto ESCAPE
Wait 3
Next I
Wait 20
Next A
Bob Off
Amal Off
Bob 1,42,48,4
K$=Inkey$
K=Scancode
If(K$="")
For X=0 To 1
LOONY_TUNE
K$=Param$
If K$=" "
Goto ESCAPE
Else
Next X
End If
End If
ESCAPE:
Clear Key
Curs Off
Pen 15 : Paper 0 : Locate 4,24 : Print " Loading Program - Please Wait ";
On Error Goto LD_PRG
Run "game.amos"
LD_PRG:
Curs Off : Locate 0,24 : Print "Can't find program [";Errn;"] - press a key"; : Clear Key : Wait Key
End
End Proc
Procedure LOONY_TUNE
Volume 63
Set Envel 1,0 To 1,63
Set Envel 1,1 To 10,51
Set Envel 1,2 To 70,51
Set Envel 1,3 To 120,0
T#=35
Restore TUNE1_NOTES
Goto TUNE1_PLAY
Goto EXYT
TUNE1_PLAY:
Do
Read P,D#
Exit If P=-1 or D#=-1
I=(1/D#)*T#
Play P,I
Wait I
K$=Inkey$
Exit If(K$<>"")
Loop
K$=" "
Goto EXYT
TUNE1_NOTES:
Data 39,4,44,8,47,4,39,4,44,8,47,4,44,4,49,8,52,4
Data 44,4,49,8,52,4,39,4,43,8,49,4,39,4,43,8,49,4
Data 40,4,39,8,49,8,47,8,44,4,-1,-1
EXYT:
Set Envel 1,2 To 1,0
Set Envel 1,3 To 1,0
End Proc[K$]